home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / hardware / fastkb / test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-11-28  |  346 b   |  23 lines
  1. program KeybTest;
  2.  
  3. uses UKeyb, Crt;
  4.  
  5. var i: integer;
  6.  
  7. begin
  8.   InstallKeybHandler;
  9.  
  10.   while Not Pressed[ESC_KEY] do
  11.         begin
  12.           GotoXY(1, 1);
  13.  
  14.           Writeln('Keys Pressed:');
  15.  
  16.           for i:=0 to 255 do
  17.               if Pressed[i] then Writeln(i);
  18.  
  19.           ClrEol;
  20.         end;
  21.  
  22.   RestoreKeybHandler;
  23. end.